library(knitr)
opts_chunk$set(comment = NA, 
               results = "asis",
               comment = NA, tidy = FALSE)
library(rCharts)
 data(iris,package = "datasets",envir = baseenv())
  names(iris) = gsub('\\.', '', names(iris))
  e<-rPlot(SepalLength ~ SepalWidth | Species, data = iris, type = 'point', color = 'Species')
  # print(class(e))
  inherits(e,"rCharts")

[1] TRUE

  # e$show('inline', include_assets = TRUE, cdn = TRUE)
  e$print()